home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 1.st / POGOSRC.ARC / STPIC.C < prev    next >
Encoding:
C/C++ Source or Header  |  1985-11-20  |  4.2 KB  |  292 lines
  1.  
  2. #include <aline.h>
  3. #include <osbind.h>
  4. #include <stdio.h>
  5. #include <ctype.h>
  6. #include "pogo.h"
  7. #include "neo.h"
  8.  
  9. extern WORD in_graphics;
  10. extern WORD *cscreen, *physcreen;
  11. extern WORD *sys_cmap;
  12.  
  13. ustrcmp(a, b)
  14. char *a, *b;
  15. {
  16. char aa, bb;
  17. int diff;
  18.  
  19. if (a == b)
  20.     return(0);
  21. if (a == NULL)
  22.     return(-1);
  23. if (b == NULL)
  24.     return(1);
  25. for (;;)
  26.     {
  27.     aa = *a++;
  28.     if (islower(aa))
  29.         aa = aa + 'A' - 'a';
  30.     bb = *b++;
  31.     if (islower(bb))
  32.         bb = bb + 'A' - 'a';
  33.     diff = aa - bb;
  34.     if (diff != 0)
  35.         return(diff);
  36.     if (aa == 0)
  37.         return(0);
  38.     }
  39. }
  40.  
  41. suffix_in(str, suff)
  42. char *str, *suff;
  43. {
  44. str += strlen(str) - strlen(suff);
  45. return(ustrcmp(str, suff) == 0);
  46. }
  47.  
  48. is_neo(name)
  49. char *name;
  50. {
  51. return(suffix_in(name, ".NEO"));
  52. }
  53.  
  54. is_pi1(name)
  55. char *name;
  56. {
  57. return(suffix_in(name, ".PI1"));
  58. }
  59.  
  60. pload_pic(p)
  61. union pt_int *p;
  62. {
  63. char *name;
  64.  
  65. if ((name = p[-1].p) == NULL)
  66.     return(0);
  67. to_graphics();
  68. if (is_neo(name))
  69.     return(rneo(name));
  70. if (is_pi1(name))
  71.     return(rpi1(name));
  72. return(rpc1(name));
  73. }
  74.  
  75. rpi1(name)
  76. char *name;
  77. {
  78. int fd;
  79. struct degas_head deg;
  80. int ok = 0;
  81.  
  82. if ((fd = Fopen(name, 0)) < 0)
  83.     {
  84.     cant_find(name);
  85.     return(0);
  86.     }
  87. if (Fread(fd, (long)sizeof(deg), °) != sizeof(deg))
  88.     {
  89.     truncated(name);
  90.     goto OUT;
  91.     }
  92. if (deg.res != 0)
  93.     {
  94.     mangled(name);
  95.     return(0);
  96.     }
  97. if (Fread(fd, 32000L, cscreen) != 32000L)
  98.     {
  99.     truncated(name);
  100.     goto OUT;
  101.     }
  102. put_cmap(deg.colormap);
  103. ok = 1;
  104. OUT:
  105. Fclose(fd);
  106. return(ok);
  107. }
  108.  
  109.  
  110. rneo(name)
  111. char *name;
  112. {
  113. int fd;
  114. struct neo_head neo;
  115. int ok = 0;
  116.  
  117. if ((fd = Fopen(name, 0)) < 0)
  118.     {
  119.     cant_find(name);
  120.     return(0);
  121.     }
  122. if (Fread(fd, (long)sizeof(neo), &neo) != sizeof(neo))
  123.     {
  124.     truncated(name);
  125.     goto OUT;
  126.     }
  127. if (neo.type != 0 && neo.type != 1)
  128.     {
  129.     mangled(name);
  130.     goto OUT;
  131.     }
  132. if (Fread(fd, 32000L, cscreen) != 32000L)
  133.     {
  134.     truncated(name);
  135.     goto OUT;
  136.     }
  137. put_cmap(neo.colormap);
  138. ok = 1;
  139. OUT:
  140. Fclose(fd);
  141. return(ok);
  142. }
  143.  
  144. rpc1(name)
  145. char *name;
  146. {
  147. int fd;
  148. long size;
  149. WORD *prev_screen;
  150.  
  151. if ((fd = Fopen(name, 0)) < 0)
  152.     {
  153.     cant_find(name);
  154.     return(0);
  155.     }
  156. if ((prev_screen = beg_mem((unsigned)40000)) == NULL)
  157.     {
  158.     Fclose(fd);
  159.     return(0);
  160.     }
  161. size = Fread(fd, 40000L, prev_screen);
  162. Fclose(fd);
  163. if (prev_screen[0] != 0x8000)
  164.     {
  165.     mangled(name);
  166.     freemem(prev_screen);
  167.     return(0);
  168.     }
  169. put_cmap(prev_screen+1);
  170. unpack_screen(prev_screen+17, cscreen, 40, 4, 200);
  171. freemem(prev_screen);
  172. return(1);
  173. }
  174.  
  175. psave_pic(p)
  176. union pt_int *p;
  177. {
  178. char *name;
  179.  
  180. name = p[-1].p;
  181. if (name == NULL)
  182.     return(0);
  183. if (is_neo(name))
  184.     return(sneo(name));
  185. if (is_pi1(name))
  186.     return(spi1(name));
  187. return(spc1(name));
  188. }
  189.  
  190. createnew(name)
  191. char *name;
  192. {
  193. Fdelete(name);
  194. return(Fcreate(name, 0));
  195. }
  196.  
  197. spc1(name)
  198. char *name;
  199. {
  200. int success = 0;
  201. int *cbuf;
  202. int fd;
  203. long size;
  204. struct degas_head d;
  205.  
  206. if ((cbuf = beg_mem((unsigned)40000)) == NULL)
  207.     return(0);
  208. if ((fd = createnew(name)) < 0)
  209.     goto saved_pic;
  210. d.res = 0x8000;
  211. copy_bytes(sys_cmap, d.colormap, 32);
  212. if ( Fwrite(fd, (long)sizeof(d), &d) < sizeof(d) )
  213.     {
  214.     goto saved_pic;
  215.     }
  216. size = compress_screen(cscreen, cbuf);
  217. if (size == 0)
  218.     goto saved_pic;
  219. if (Fwrite(fd, size, cbuf) < size)
  220.     {
  221.     goto saved_pic;
  222.     }
  223. success = 1;
  224. saved_pic:
  225. free(cbuf);
  226. if (fd >= 0)
  227.     Fclose(fd);
  228. if (!success)
  229.     Fdelete(name);
  230. return(success);
  231. }
  232.  
  233. spi1(name)
  234. char *name;
  235. {
  236. int success = 0;
  237. int fd;
  238. long size;
  239. struct degas_head d;
  240.  
  241. if ((fd = createnew(name)) < 0)
  242.     goto saved_pic;
  243. d.res = 0x0000;
  244. copy_bytes(sys_cmap, d.colormap, 32);
  245. if ( Fwrite(fd, (long)sizeof(d), &d) < sizeof(d) )
  246.     {
  247.     goto saved_pic;
  248.     }
  249. if (Fwrite(fd, 32000L, cscreen) < 32000L)
  250.     {
  251.     goto saved_pic;
  252.     }
  253. success = 1;
  254. saved_pic:
  255. if (fd >= 0)
  256.     Fclose(fd);
  257. if (!success)
  258.     Fdelete(name);
  259. return(success);
  260. }
  261.  
  262. sneo(name)
  263. char *name;
  264. {
  265. int success = 0;
  266. int fd;
  267. long size;
  268. struct neo_head neo;
  269.  
  270. if ((fd = createnew(name)) < 0)
  271.     goto saved_pic;
  272. zero_bytes(&neo, sizeof(neo));
  273. copy_bytes(sys_cmap, neo.colormap, 32);
  274. if ( Fwrite(fd, (long)sizeof(neo), &neo) < sizeof(neo) )
  275.     {
  276.     goto saved_pic;
  277.     }
  278. if (Fwrite(fd, 32000L, cscreen) < 32000L)
  279.     {
  280.     goto saved_pic;
  281.     }
  282. success = 1;
  283. saved_pic:
  284. if (fd >= 0)
  285.     Fclose(fd);
  286. if (!success)
  287.     Fdelete(name);
  288. return(success);
  289. }
  290.  
  291.  
  292.